home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / ada / fib.ans (.png) < prev    next >
ANSi Art File  |  1988-03-25  |  285 b   |  640x160  |  1-bit (2 colors)
   ocr: Our solution to Uutside Assignment 4 (in FIB.ANS): separate (FIBTEST) function FIBUNACCICN : in PUSITIVE) return PUSITIVE is ANSWER : POSITIVE := 1; begin if N > 2 then ANSWER := FIBUNACCICN - 1) + FIBUNACCICN - 2); end if; return ANSWER: end FIBONACCI;